// Modulo : FINANCEIRO
// Fonte  : FFO06A01
// ---------+-------------------+-----------------------------------------------------------
// Data     | Autor             | Descricao
// ---------+-------------------+-----------------------------------------------------------
// 02/10/13 | PETERSON			|CADASTRO DE BLOQUEIO DE DATAS PARA CONTAS A PAGAR
// ---------+-------------------+-----------------------------------------------------------

#include "rwmake.ch"

user function FFO06A01()
	local cVldAlt := ".T." // Operacao: ALTERACAO
	local cVldExc := ".T." // Operacao: EXCLUSAO
	local cAlias := "ZE1"

	chkFile(cAlias)
	dbSelectArea(cAlias)
	dbSetOrder(1)

	private cCadastro := "Bloqueio de datas p/ Contas a Pagar"
//--<  monta 'arotina' proprio >------------------------------------------------------------

	aRotina := {;
		{ "Pesquisar", "AxPesqui", 0, 1},;
		{ "Visualizar", "AxVisual", 0, 2},;
		{ "Incluir", "AxInclui", 0, 3},;
		{ "Alterar", "AxAltera", 0, 4},;
		{ "Exlcuir", "AxDeleta", 0, 5};
		}
	dbSelectArea(cAlias)
	mBrowse( 6, 1, 22, 75, cAlias)
return